package cn.jinjimi.base.util;


import java.text.ParseException;
import java.text.SimpleDateFormat;
import java.util.Calendar;
import java.util.Date;
import java.util.TimeZone;

public class Lunar {
    final static String mMonthNumber[] = {"正", "二", "三", "四", "五", "六", "七", "八", "九", "十", "冬", "腊"};
    private int year;
    private int month;
    private int day;
    private boolean leap;
    final static String chineseNumber[] =
            {"一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二"};

    final String[] mNumber2Str = new String[]{"零", "一", "二", "三", "四", "五", "六", "七", "八", "九"};

    SimpleDateFormat chineseDateFormat = new SimpleDateFormat(" yyyy年MM月dd日 ");

    final static long[] lunarInfo = new long[]
            {0x04bd8, 0x04ae0, 0x0a570, 0x054d5, 0x0d260, 0x0d950, 0x16554, 0x056a0,
                    0x09ad0, 0x055d2, 0x04ae0, 0x0a5b6, 0x0a4d0, 0x0d250, 0x1d255,
                    0x0b540, 0x0d6a0, 0x0ada2, 0x095b0, 0x14977, 0x04970, 0x0a4b0,
                    0x0b4b5, 0x06a50, 0x06d40, 0x1ab54, 0x02b60, 0x09570, 0x052f2,
                    0x04970, 0x06566, 0x0d4a0, 0x0ea50, 0x06e95, 0x05ad0, 0x02b60,
                    0x186e3, 0x092e0, 0x1c8d7, 0x0c950, 0x0d4a0, 0x1d8a6, 0x0b550,
                    0x056a0, 0x1a5b4, 0x025d0, 0x092d0, 0x0d2b2, 0x0a950, 0x0b557,
                    0x06ca0, 0x0b550, 0x15355, 0x04da0, 0x0a5d0, 0x14573, 0x052d0,
                    0x0a9a8, 0x0e950, 0x06aa0, 0x0aea6, 0x0ab50, 0x04b60, 0x0aae4,
                    0x0a570, 0x05260, 0x0f263, 0x0d950, 0x05b57, 0x056a0, 0x096d0,
                    0x04dd5, 0x04ad0, 0x0a4d0, 0x0d4d4, 0x0d250, 0x0d558, 0x0b540,
                    0x0b5a0, 0x195a6, 0x095b0, 0x049b0, 0x0a974, 0x0a4b0, 0x0b27a,
                    0x06a50, 0x06d40, 0x0af46, 0x0ab60, 0x09570, 0x04af5, 0x04970,
                    0x064b0, 0x074a3, 0x0ea50, 0x06b58, 0x055c0, 0x0ab60, 0x096d5,
                    0x092e0, 0x0c960, 0x0d954, 0x0d4a0, 0x0da50, 0x07552, 0x056a0,
                    0x0abb7, 0x025d0, 0x092d0, 0x0cab5, 0x0a950, 0x0b4a0, 0x0baa4,
                    0x0ad50, 0x055d9, 0x04ba0, 0x0a5b0, 0x15176, 0x052b0, 0x0a930,
                    0x07954, 0x06aa0, 0x0ad50, 0x05b52, 0x04b60, 0x0a6e6, 0x0a4e0,
                    0x0d260, 0x0ea65, 0x0d530, 0x05aa0, 0x076a3, 0x096d0, 0x04bd7,
                    0x04ad0, 0x0a4d0, 0x1d0b6, 0x0d250, 0x0d520, 0x0dd45, 0x0b5a0,
                    0x056d0, 0x055b2, 0x049b0, 0x0a577, 0x0a4b0, 0x0aa50, 0x1b255,
                    0x06d20, 0x0ada0};

    // 传回农历 y年的总天数
    private static int yearDays(int y) {
        int i, sum = 348;
        for (i = 0x8000; i > 0x8; i >>= 1) {
            if ((lunarInfo[y - 1900] & i) != 0)
                sum += 1;
        }
        return (sum + leapDays(y));
    }

    //传回农历 y年闰月的天数
    public static int leapDays(int y) {
        if (leapMonth(y) != 0) {
            if ((lunarInfo[y - 1900] & 0x10000) != 0)
                return 30;
            else
                return 29;
        } else
            return 0;
    }

    //传回农历 y年闰哪个月 1-12 , 没闰传回 0
    public static int leapMonth(int y) {
        return (int) (lunarInfo[y - 1900] & 0xf);
    }

    //传回农历 y年m月的总天数
    public static int monthDays(int y, int m) {
        if ((lunarInfo[y - 1900] & (0x10000 >> m)) == 0)
            return 29;
        else
            return 30;
    }

    /**
     * 传出y年m月d日对应的农历. yearCyl3:农历年与1864的相差数 ? monCyl4:从1900年1月31日以来,闰月数
     * dayCyl5:与1900年1月31日相差的天数,再加40 ?
     *
     * @param cal
     * @return
     */
    public Lunar(Calendar cal) {
        Calendar calendar = cal;
        @SuppressWarnings(" unused ")
        int yearCyl, monCyl, dayCyl;
        int leapMonth = 0;
        Date baseDate = null;
        try {
            baseDate = chineseDateFormat.parse(" 1900年1月31日 ");
        } catch (ParseException e) {
            e.printStackTrace(); // To change body of catch statement use
            // Options | File Templates.
        }

        //解决坑爹的部分日期公历转农历后农历少一天的问题 还有夏令营时差的问题
        Calendar tempCal = Calendar.getInstance(TimeZone.getTimeZone("UTC"));
        tempCal.set(calendar.get(Calendar.YEAR), calendar.get(Calendar.MONTH), calendar.get(Calendar.DAY_OF_MONTH), 0, 0);
        calendar = tempCal;
        // 求出和1900年1月31日相差的天数
        int offset = (int) ((calendar.getTime().getTime() - baseDate.getTime()) / 86400000L);
        dayCyl = offset + 40;
        monCyl = 14;

        // 用offset减去每农历年的天数
        // 计算当天是农历第几天
        // i最终结果是农历的年份
        // offset是当年的第几天
        int iYear, daysOfYear = 0;
        for (iYear = 1900; iYear < 2050 && offset > 0; iYear++) {
            daysOfYear = yearDays(iYear);
            offset -= daysOfYear;
            monCyl += 12;
        }
        if (offset < 0) {
            offset += daysOfYear;
            iYear--;
            monCyl -= 12;
        }
        // 农历年份
        year = iYear;

        yearCyl = iYear - 1864;
        leapMonth = leapMonth(iYear); // 闰哪个月,1-12
        leap = false;

        // 用当年的天数offset,逐个减去每月（农历）的天数，求出当天是本月的第几天
        int iMonth, daysOfMonth = 0;
        for (iMonth = 1; iMonth < 13 && offset > 0; iMonth++) {
            // 闰月
            if (leapMonth > 0 && iMonth == (leapMonth + 1) && !leap) {
                --iMonth;
                leap = true;
                daysOfMonth = leapDays(year);
            } else
                daysOfMonth = monthDays(year, iMonth);

            offset -= daysOfMonth;
            // 解除闰月
            if (leap && iMonth == (leapMonth + 1))
                leap = false;
            if (!leap)
                monCyl++;
        }
        // offset为0时，并且刚才计算的月份是闰月，要校正
        if (offset == 0 && leapMonth > 0 && iMonth == leapMonth + 1) {
            if (leap) {
                leap = false;
            } else {
                leap = true;
                --iMonth;
                --monCyl;
            }
        }
        // offset小于0时，也要校正
        if (offset < 0) {
            offset += daysOfMonth;
            --iMonth;
            --monCyl;
        }
        month = iMonth;
        day = offset + 1;
    }

    public static String getChinaDayString(int day) {
        String chineseTen[] =
                {"初", "十", "廿", "三"};
        int n = day % 10 == 0 ? 9 : day % 10 - 1;
        if (day > 30)
            return "";
        if (day == 10)
            return "初十";
        else
            return chineseTen[day / 10] + chineseNumber[n];
    }


    public boolean isLeapMonth() {
        return leap;
    }


    public String toString() {
        return /* cyclical() + "年" + */(leap ? "闰" : "")
                + mMonthNumber[month - 1] + "月" + getChinaDayString(day);
    }

    public String getLunarString() {
        return getLunarYearStr(year) + "年" + (leap ? "闰" : "")
                + mMonthNumber[month - 1] + "月" + getChinaDayString(day);
    }

    private String getLunarYearStr(int year) {
        return mNumber2Str[year / 1000]
                + mNumber2Str[(year % 1000) / 100]
                + mNumber2Str[(year % 100) / 10]
                + mNumber2Str[year % 10];
    }

    public int numeric_year() {
        return year;
    }

    public int numbric_month() {
        return month;
    }

    public int numbric_day() {
        return day;
    }

    public String numeric_md() {// 返回阿拉伯数字的阴历日期
        String temp_day;
        String temp_mon;
        temp_mon = month < 10 ? "0" + month : "" + month;
        temp_day = day < 10 ? "0" + day : "" + day;

        return temp_mon + temp_day;
    }

    public String get_month() {// 返回阴历的月份
        return mMonthNumber[month - 1];
    }

    public String get_date() {// 返回阴历的天
        return getChinaDayString(day);
    }


    /**
     * 农历转公历
     *
     * @param year
     * @param month     0 开始 1月为0
     * @param day
     * @param leapMonth 0 为 没闰月
     * @return
     */
    public static Calendar lunar2Gregorian(int year, int month, int day, int leapMonth) {
        int cYear = 0;
        int cMonth = 0;
        int cDay = 0;

        int countDay = 31;

        for (int y = 1900; y < year; y++) {
            countDay += yearDays(y);
        }

        for (int m = 0; m < month; m++) {
            if (leapMonth > 0) {
                if (m < leapMonth)
                    countDay += monthDays(year, m + 1);
                else if (m == leapMonth)
                    countDay += leapDays(year);
                else
                    countDay += monthDays(year, m);
            } else {
                countDay += monthDays(year, m + 1);
            }
        }
        countDay += day;

        int cY = 0;
        for (int iY = 1900; iY < 2050 && countDay > 0; iY++) {
            if (iY % 4 == 0)
                countDay -= 366;
            else
                countDay -= 365;
            cY = iY;
        }

        if (countDay == 0) {
            cYear = cY;
            cMonth = 11;
            cDay = 31;
        } else if (countDay < 0) {
            boolean bigM = cY % 4 == 0;
            int dd = bigM ? 366 + countDay : 365 + countDay;
            int monthDay = 0;
            int cM = 0;
            for (int i = 1; i < 13 && dd > 0; i++) {
                switch (i) {
                    case 4:
                    case 6:
                    case 9:
                    case 11:
                        monthDay = 30;
                        break;
                    case 2:
                        monthDay = bigM ? 29 : 28;
                        break;
                    default:
                        monthDay = 31;
                        break;
                }
                dd -= monthDay;
                cM = i - 1;
            }

            dd = monthDay + dd;

            cYear = cY;
            cMonth = cM;
            cDay = dd;
        }

        Calendar date = Calendar.getInstance();
        date.set(cYear, cMonth, cDay);
        return date;
    }

}